home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Chiller Killers / Chiller / Chiller.DXR / 00507.ls < prev    next >
Encoding:
Text File  |  1996-11-28  |  640 b   |  38 lines
  1. on mouseUp
  2.   global t, d
  3.   puppetSound(4, 0)
  4.   puppetSound(3, 0)
  5.   puppetSound(2, 0)
  6.   puppetSound(2, 73)
  7.   put " " into field "advert"
  8.   puppetSound(1, 0)
  9.   puppetSprite(1, 0)
  10.   puppetSprite(2, 0)
  11.   puppetSprite(3, 0)
  12.   puppetSprite(4, 0)
  13.   repeat with t = 1 to 30000
  14.     nothing()
  15.   end repeat
  16.   set d to random(6)
  17.   if d = 1 then
  18.     puppetSound(1, 202)
  19.   end if
  20.   if d = 2 then
  21.     puppetSound(1, 205)
  22.   end if
  23.   if d = 3 then
  24.     puppetSound(1, 211)
  25.   end if
  26.   if d = 4 then
  27.     puppetSound(1, 213)
  28.   end if
  29.   if d = 5 then
  30.     puppetSound(1, 241)
  31.   end if
  32.   if d = 6 then
  33.     puppetSound(1, 242)
  34.   end if
  35.   unLoadCast()
  36.   go("f")
  37. end
  38.